home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SCB 4.0.cpt / Script Cat Burglar 4.0 / card_3953.txt < prev    next >
Text File  |  1988-03-21  |  13KB  |  331 lines

  1. -- card: 3953 from stack: in.0
  2. -- bmap block id: 4572
  3. -- flags: 4000
  4. -- background id: 3586
  5. -- name: Info 1
  6. ----- HyperTalk script -----
  7. On openCard
  8.   Set LockScreen to true
  9.   hide card field "Info Field" of card "Info 1"
  10.   Hide card field "Mouse Hider" of card "Info 1"
  11.   set scroll of card field "Info Field" of card "Info 1" to 1
  12.   hide menubar
  13. end openCard
  14.  
  15.  
  16.  
  17.  
  18. -- part 14 (button)
  19. -- low flags: 80
  20. -- high flags: 0000
  21. -- rect: left=273 top=246 right=286 bottom=310
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 18355 / 18355
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: Squeek Holder
  30.  
  31.  
  32. -- part 13 (button)
  33. -- low flags: 80
  34. -- high flags: 2000
  35. -- rect: left=167 top=211 right=243 bottom=207
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 23213 / 23213
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Meow Holder
  44.  
  45.  
  46. -- part 16 (button)
  47. -- low flags: 80
  48. -- high flags: 0000
  49. -- rect: left=191 top=255 right=286 bottom=230
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 24591 / 24591
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Urp Meow Holder
  58.  
  59.  
  60. -- part 8 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=391 top=229 right=334 bottom=504
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Feed Cat
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   Set lockScreen to true
  75.   show card button "Urp holder"
  76.   show card field "Urp"
  77.   show card field "Mouse Hider"
  78.   set lockScreen to false
  79.   wait 30
  80.   set lockScreen to true
  81.   hide card field "Urp"
  82.   hide card button "Urp holder"
  83.   show card button "Urp Meow Holder"
  84.   show card field "Urp Meow"
  85.   set lockScreen to false
  86.   Wait 20
  87.   Set lockScreen to true
  88.   hide card field "Urp Meow"
  89.   hide card button "Urp Meow holder"
  90.   show card field "Info Field"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 6 (field)
  96. -- low flags: 81
  97. -- high flags: 0001
  98. -- rect: left=390 top=229 right=337 bottom=507
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Mouse Hider
  107. ----- HyperTalk script -----
  108.  
  109.  
  110.  
  111.  
  112. -- part 15 (button)
  113. -- low flags: 80
  114. -- high flags: 0000
  115. -- rect: left=293 top=210 right=244 bottom=331
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 23987 / 23987
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Urp Holder
  124.  
  125.  
  126. -- part 1 (button)
  127. -- low flags: 00
  128. -- high flags: 0000
  129. -- rect: left=197 top=202 right=279 bottom=293
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Cat's meow
  138. ----- HyperTalk script -----
  139. on mouseDown
  140.   Get the visible of card field "Mouse Hider"
  141.   if it is true then
  142.     set lockScreen to true
  143.     Show card button "Squeek Holder"
  144.     Show card field "Squeek"
  145.     set lockScreen to false
  146.     wait 30
  147.     set lockScreen to true
  148.     hide card field "Squeek"
  149.     hide card button "Squeek Holder"
  150.     show card field "Info Field"
  151.   else
  152.     set lockScreen to true
  153.     Show card button "Meow Holder"
  154.     Show card field "Meow"
  155.     set lockScreen to false
  156.     wait 20
  157.     set lockScreen to true
  158.     hide card field "Meow"
  159.     hide card button "Meow Holder"
  160.   end if
  161. end mouseDown
  162.  
  163.  
  164.  
  165. -- part 11 (field)
  166. -- low flags: 80
  167. -- high flags: 0000
  168. -- rect: left=271 top=262 right=275 bottom=310
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 0
  172. -- font id: 3
  173. -- text size: 9
  174. -- style flags: 8448
  175. -- line height: 12
  176. -- part name: Squeek
  177.  
  178.  
  179. -- part 2 (field)
  180. -- low flags: 80
  181. -- high flags: 0000
  182. -- rect: left=169 top=219 right=231 bottom=204
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 9
  188. -- style flags: 8448
  189. -- line height: 12
  190. -- part name: Meow
  191.  
  192.  
  193. -- part 19 (button)
  194. -- low flags: 00
  195. -- high flags: 2000
  196. -- rect: left=9 top=298 right=329 bottom=41
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 24044 / 24044
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: To Get Scripts
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   visual effect dissolve to black
  208.   visual effect scroll up fast
  209.   go to first card of background "Cat in Coalbin"
  210.   hide card field "Info Field" of card "Info 1"
  211.   Hide card field "Mouse Hider" of card "Info 1"
  212.   set scroll of card field "Info Field" of card "Info 1" to 1
  213.   -- Sorry to have you chase this button type all over the screen,
  214.   -- but the Get Script card was a late addition.
  215. end mouseUp
  216.  
  217.  
  218.  
  219. -- part 9 (field)
  220. -- low flags: 80
  221. -- high flags: 0000
  222. -- rect: left=188 top=265 right=278 bottom=231
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 1
  226. -- font id: 3
  227. -- text size: 9
  228. -- style flags: 8448
  229. -- line height: 12
  230. -- part name: Urp Meow
  231.  
  232.  
  233. -- part 17 (field)
  234. -- low flags: 80
  235. -- high flags: 0000
  236. -- rect: left=299 top=219 right=233 bottom=327
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 3
  241. -- text size: 9
  242. -- style flags: 0
  243. -- line height: 12
  244. -- part name: Urp
  245.  
  246.  
  247. -- part 3 (field)
  248. -- low flags: 81
  249. -- high flags: 2007
  250. -- rect: left=0 top=0 right=342 bottom=512
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 0
  254. -- font id: 3
  255. -- text size: 9
  256. -- style flags: 0
  257. -- line height: 12
  258. -- part name: Info Field
  259. ----- HyperTalk script -----
  260. on mouseUp
  261.   hide card field "Urp"
  262.   hide card field "Info Field"
  263.   set scroll of card field "Info Field" to 1
  264. end mouseUp
  265.  
  266.  
  267. -- part contents for card part 2
  268. ----- text -----
  269. Meow                                                    
  270.  
  271. -- part contents for card part 3
  272. ----- text -----
  273.  
  274. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢      Script  Cat Burglar      ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  275.                                                                     Version 3.0/4.0
  276.  
  277. I'm sure that as you explored some of the many HyperCard stacks that have made their appearance since the program was introduced in August 1987,  you have indulged your curiosity and examined the scripts of various buttons, fields, and cards in them to see what the designer had to type to get Hypercard to perform its magic. 
  278.  
  279. You may have occasionally thought, "Gee, that's a neat idea!  I'll have to remember that scripting technique when I design my own stacks," and then forgot where you saw it when you finally got around to trying some stack building of your own.
  280.  
  281. Well, this stack was created as a  memory aid. 
  282.  
  283. If you come across a script that you want to save for later perusal or adaption, copy it and open this stack.  Click on the "Add Script" button and a new card will be created.  You will be asked to give the script a name,  tell which stack you got it from, and the kind object it was associated with.  The information you type and the script you copied will be pasted into appropriate fields on the new card. 
  284. (If the Clipboard contains anything other than text,  you will get an error message in this version.  Delete the new card and try again.) There is an additional field on the card where you can enter other comments, such as the name of the script's author, more information about the stack you got it from, or notes about how you plan to modify and use the script.
  285.  
  286. There is also a feature, a front end first built around a script I found in the Home stack script, that allows you to examine scripts in other stacks by clicking the buttons on a card in this stack.  You access the Get Scripts card by clicking on the black cat icon wherever it appears.
  287.  
  288. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢      Caveat      ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  289.     
  290.  Contrary to its title, the creation and distribution of this stack should not be construed to mean that I condone un-acknowledged software theft.  If you use someone else's script s and they have indicated that their stack is Freeware, you should acknowledge the source somewhere in your stack.  The easiest method would seem to be to add comments in the script by preceeding a line or phrase with " -- ".  I have tried to make it easy to take notes after you copy the script.  You'll then have the attribution information handy when you need it. 
  291.      The Master speaks:
  292.          "Overall, the thing that I'm most excited about in Hypercard is its "opening up" potential. You know, 
  293.           we talk about open architecture hardware.  Well, this is open architecture software where, really, 
  294.           you can go inside a stack that somebody else wrote and look and see how it was done and modify it 
  295.           and tweak it a little to tune it for your uses and learn from what someone else has done." 
  296.                                                                -- Bill Atkinson in "The Complete HyperCard Handbook," p.xxxi.
  297.      Thus, Bill Atkinson gave "the rest of us," the non-programmer majority, a tool that allows us to borrow and learn from those who are more proficient than we are.  It is only fair that we acknowledge their contributions wherever possible, and this stack is set up to make it easier to keep the both the script and the writer's name handy.
  298.      Having said that, I want to thank Atkinson, Goodman, Paul, Shearer, Daniels, and everyone else whose  HyperCard scripts have sent Show Pixel and Hide Pixel to my Mac's screen.  If you see anything in this stack that looks familiar, it may mean that your work inspired me to duplicate in this stack something you did in one of your stacks.  (Often this has meant re-inventing the wheel, since I couldn't remember exactly what you wrote to get the effect I wanted.  I discarded a lot of triangular wheels in the course of building this stack.)  While I have tried to be careful that no code went un-acknowledged,  if you see some of yours,  I thank you for it.
  299.  
  300.  
  301. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢       SinceYou Moused Down This Far      ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  302. Happy stack building. This is my fourth or fifth, and the first that I have considered worth putting my name on.  I hope you find it useful.  If so, at the end of the year count the number of scripts you have stored in it and send me a penny for each one.  I have an option on a villa in the South of France and if I can come up with $100,000 by then,  I'll be able to swing the down payment.  If you are convinced  your contribution wouldn't be large enough to make a difference to the fund, though, don't bother to send it.  Drop me a postcard instead.  Drop me a postcard anyway.
  303. Thanks.
  304.  
  305. ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢    Fillmore - Feb 27, 1988      ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  306. P.S. Since I should practice what I preach, I must inform you here that the clip art I used in this stack came from the packages "Wet Paint" and "MacPic!, Volume 1."
  307. P.P.S. If you have any comments or suggestions, leave e-mail for: 
  308.              Philip Mohr on MacLodge (818) 444-9850
  309.                                                   [(818) 962-1324 after 26 March 1988]
  310.                                     or
  311.              Fillmore on Greycastle (818) 355-7872
  312. P.P.P.S. Feel free to distribute this stack as widely as possible.  Let's see if you can even sneak it into the software libraries of I*M users.
  313. P.P.P.P.S.  Earlier I wrote:
  314. "A later version will, I hope, live up to this stack's name.  My next project is to see if it is possible to write a button script that will go to the stack you choose, search for a script, copy it, and paste it into a new card on this one."  This version has a rough draft of that feature,  but it is inelegantly coded.  If any of you modifiies this stack and devises a prettier script,  how about pasting a copy of the listing to the postcard?
  315. P.P.P.P.P.S.  See the Get Scripts help field for information about  Script¬†Cat Burglar 4.0.   --  031988
  316.  
  317.  
  318.  
  319. -- part contents for card part 9
  320. ----- text -----
  321. Meow
  322.  
  323.  
  324. -- part contents for card part 11
  325. ----- text -----
  326. Squeek
  327.  
  328. -- part contents for card part 17
  329. ----- text -----
  330. Urp!
  331.